﻿Imports System.ComponentModel

Public Class CLDS_Seg_Prop_Converter
    Inherits StringConverter
    Private Shared _SegList As Collection
    Public Shared Property SegList() As Collection
        Get
            Return _SegList
        End Get
        Set(ByVal value As Collection)
            _SegList = value
        End Set
    End Property
    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        Return New StandardValuesCollection(_SegList)
    End Function
End Class

